Programove otevreni PDF souboru
Otázka od: Karel Rys
27. 11. 2002 11:56
Zdravim,
pouzivam tenhle kousek kodu:
procedure TMainForm.aPriruckaPDFExecute(Sender: TObject);
var Prirucka:string;
begin
Prirucka:=ExtractFilePath(ParamStr(0))+'spw.pdf';
ShellExecute(Self.Handle,'',pchar(Prirucka),nil,nil,SW_SHOWNORMAL);
end;
Na nekterych pocitacich se PDF soubor otevre, na nekterych ne (jen se spusti
Acrobat Reader a zase
se zavre). Zrovna tak kdyz spustim aplikaci z debuggeru, PDF se neotevre,
pritom na stejnem PC
pustena samostatna aplikace soubor otevre.
Nenapada vas, v cem delam chybu? Zkousel jsem i misto '' davat 'open', vysledek
uplne stejny.
Diky,
Karel
Odpovedá: Obermaier Petr Ing.
27. 11. 2002 12:37
> Od: Karel Rys [SMTP:delphi@zas-me.cz]
> Prirucka:=ExtractFilePath(ParamStr(0))+'spw.pdf';
> Na nekterych pocitacich se PDF soubor otevre, na nekterych ne (jen se spusti
Acrobat Reader a zase
> se zavre). Zrovna tak kdyz spustim aplikaci z debuggeru, PDF se neotevre,
pritom na stejnem PC
> pustena samostatna aplikace soubor otevre.
>
Zkus kontrolovat, jestli ExtractFilePath(ParamStr(0)) obsahuje obracene lomitko
na konci. Nemusi tam byt v zavislosti na verzi Windows.
Ober
Odpovedá: David Michal
27. 11. 2002 12:42
A co zkusit otevrit acrord32.exe a predat mu pdf file jako parametr?
ShellExecute(Self.Handle,'',pchar('AcroRd32.exe'),
pchar(Prirucka),nil,SW_SHOWNORMAL);
David
pouzivam tenhle kousek kodu:
procedure TMainForm.aPriruckaPDFExecute(Sender: TObject);
var Prirucka:string;
begin
Prirucka:=ExtractFilePath(ParamStr(0))+'spw.pdf';
ShellExecute(Self.Handle,'',pchar(Prirucka),nil,nil,SW_SHOWNORMAL);
end;
Na nekterych pocitacich se PDF soubor otevre, na nekterych ne (jen se spusti
Acrobat Reader a zase
se zavre). Zrovna tak kdyz spustim aplikaci z debuggeru, PDF se neotevre,
pritom na stejnem PC
pustena samostatna aplikace soubor otevre.
Nenapada vas, v cem delam chybu? Zkousel jsem i misto '' davat 'open',
vysledek uplne stejny.
Diky,
Karel
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.423 / Virus Database: 238 - Release Date: 25/11/2002
Odpovedá: Beneš Jaroslav
27. 11. 2002 13:05
No to by me zajimalo v jake verzi Windows se tohle deje ...
Jaro B.
-----Original Message-----
From: Obermaier Petr Ing. [mailto:Obermaier@mail.sdas.cz]
Zkus kontrolovat, jestli ExtractFilePath(ParamStr(0)) obsahuje obracene lomitko
na konci. Nemusi tam byt v zavislosti na verzi Windows.
Ober
Odpovedá: Petr Palicka
27. 11. 2002 14:53
ahoj,
> Zkus kontrolovat, jestli ExtractFilePath(ParamStr(0))
> obsahuje obracene lomitko na konci.......
nebo pouzij:
Prirucka:=ExtractFileDir + '\blabla.pdf';
// respektive ...+PathDelim+'blabla.pdf'
peca